home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Sample Code / AOCE Sample Code / PowerTalk Access Modules / Sample SMSAM / SampleSMSAM Source / BuildingBlocks / HandleObject.cp < prev    next >
Encoding:
Text File  |  1995-07-28  |  5.3 KB  |  235 lines  |  [TEXT/MPS ]
  1. /*
  2.     File:        HandleObject.cp
  3.  
  4.     Copyright:    © 1991-1994 by Apple Computer, Inc.
  5.                 All rights reserved.
  6.  
  7.     Part of the AOCE Sample SMSAM Package.  Consult the license
  8.     which came with this software for your specific legal rights.
  9.  
  10. */
  11.  
  12.  
  13.  
  14. #ifndef __HANDLEOBJECT__
  15. #include "HandleObject.h"
  16. #endif
  17.  
  18. #ifndef    __DEBUGASSERT__
  19. #include "DebugAssert.h"
  20. #endif
  21.  
  22. #ifndef    __IOSTREAM__
  23. #include "IOStream.h"
  24. #endif
  25.  
  26. /***********************************|****************************************/
  27.  
  28. #pragma segment HandleObject
  29.  
  30. /***********************************|****************************************/
  31.  
  32. ostream& operator << ( ostream& s, const THandleObject* o )
  33. {
  34.     if ( o )
  35.         return *o >> s;
  36.     else
  37.         return s << "<NIL>";
  38. }
  39.  
  40. /***********************************|****************************************/
  41.  
  42. THandleObject::THandleObject () 
  43. {
  44. #if defined ( debug )
  45.     fTag = kHandleObjectTag;
  46. #endif
  47. }
  48.  
  49. /***********************************|****************************************/
  50.  
  51. THandleObject::THandleObject ( const THandleObject& ) 
  52. {
  53. #if defined ( debug )
  54.     fTag = kHandleObjectTag;
  55. #endif
  56. }
  57.  
  58. /***********************************|****************************************/
  59.  
  60. THandleObject::~THandleObject() {
  61.     #if debug
  62.     fTag = '\?\?\?\?';
  63.     #endif
  64. }
  65.  
  66. /***********************************|****************************************/
  67.  
  68. ostream& THandleObject::operator >> ( ostream& s ) const
  69. {
  70.     return s << "THandleObject @ " << (void*) this;
  71. }
  72.  
  73. /***********************************|****************************************/
  74.  
  75. THandleObject& THandleObject::operator = ( const THandleObject& that )
  76. {
  77.     ASSERT ( this != &that ); 
  78.     return *this;
  79. }
  80.  
  81. /***********************************|****************************************/
  82.  
  83. THandleObject::THandleObject ( Boolean lock )
  84. {
  85. #if defined ( ENABLE_HANDLE_OBJECTS)
  86.     if ( lock )
  87.         Lock ();
  88. #endif
  89. }
  90.  
  91. /***********************************|****************************************/
  92.  
  93. SignedByte THandleObject::GetState()
  94. {
  95. #if defined ( ENABLE_HANDLE_OBJECTS)
  96.     return HGetState((Handle)this);
  97. #else
  98.     return 0;
  99. #endif
  100. }
  101.  
  102. /***********************************|****************************************/
  103.  
  104. void THandleObject::Lock()
  105. { 
  106. #if defined ( ENABLE_HANDLE_OBJECTS)
  107.     HLock((Handle)this);
  108. #endif
  109. }
  110.  
  111. /***********************************|****************************************/
  112.  
  113. void THandleObject::MoveHigh() 
  114. {
  115. #if defined ( ENABLE_HANDLE_OBJECTS)
  116.     MoveHHi((Handle)this);
  117. #endif
  118. }
  119.  
  120. /***********************************|****************************************/
  121.  
  122. void THandleObject::SetState(SignedByte flags) 
  123. {
  124. #if defined ( ENABLE_HANDLE_OBJECTS)
  125.     HSetState((Handle)this, flags);
  126. #endif
  127. }
  128.  
  129. /***********************************|****************************************/
  130.  
  131. void THandleObject::Unlock() 
  132. {
  133. #if defined ( ENABLE_HANDLE_OBJECTS)
  134.     HUnlock((Handle)this);
  135. #endif
  136. }
  137.  
  138. /***********************************|****************************************/
  139.  
  140. SignedByte THandleObject::LockHigh()  { 
  141. #if defined ( ENABLE_HANDLE_OBJECTS )
  142.     SignedByte oldState = GetState();
  143.     MoveHigh();
  144.     Lock();
  145.     return oldState; 
  146. #else
  147.     return 0;
  148. #endif
  149. }
  150.  
  151. /***********************************|****************************************/
  152.  
  153. #if defined ( debug )
  154.  
  155. Boolean THandleObject::IsAHandleObject ( Handle h )
  156. {    
  157.     THandleObject* o = (THandleObject *) h;
  158.  
  159.     return o->fTag == kHandleObjectTag;
  160. }
  161.  
  162. #endif
  163.  
  164. /***********************************|****************************************/
  165.  
  166. #if defined ( debug )
  167.  
  168. Boolean foo ()  { return true; }
  169. Boolean foo2 ( ) { return false; }
  170.  
  171. Boolean THandleObject::IsValidObject ( Boolean mustReturn ) const
  172. {
  173.     #if defined ( ENABLE_HANDLE_OBJECTS )
  174.     Handle h = (Handle) this;
  175.  
  176.     if (     ( ( (long) h ) & 0x00000001 ) ||                    //    If the handle master is odd,
  177.             ( h < (Handle) & ( ApplicZone ()->heapData ) ) ||    //    or below the application zone
  178.             ( h > (Handle) ApplicZone()->bkLim ) )                //    or above the application zone
  179.     {
  180.         keith << "THandleObject::IsValidObject(), bad object master pointer." << endl;
  181.     }
  182.     else if ( ( ( (long) *h ) & 0x00000001 ) ||                    //    If the object pointer is odd,
  183.             ( *h < (Ptr) & ( ApplicZone ()->heapData ) ) ||        //    or below the application zone
  184.             ( *h > ApplicZone()->bkLim ) )                        //    or above the application zone
  185.     {
  186.         keith << "THandleObject::IsValidObject(), bad object pointer." << endl;
  187.     }
  188.     else if ( fTag != kHandleObjectTag )
  189.     {    
  190.         keith << "THandleObject::IsValidObject(), fTag != kHandleObjectTag." << endl;
  191.     }
  192.     else
  193.     {
  194.         return true;
  195.     }
  196.     
  197.     //    If we get here, the object is bad, so print out a stack crawl,
  198.     //    call Failure() for the current thread, and exit.
  199.     if ( ! mustReturn )
  200.         FAIL ( -1 );
  201.     
  202.     return false;
  203.  
  204.     #else    // ENABLE_HANDLE_OBJECTS
  205.     Ptr p = (Ptr) this;
  206.  
  207.     if ( ( ( (long) p ) & 0x00000001 ) ||                                //    If the object pointer is odd,
  208.             ( p < (Ptr) & ( ApplicZone ()->heapData ) ) ||    //    or below the application zone
  209.             ( p > ApplicZone()->bkLim ) )                    //    or above the application zone
  210.     {
  211.         keith << "THandleObject::IsValidObject(), bad object pointer." << endl;
  212.     }
  213.     else if ( fTag != kHandleObjectTag )
  214.     {    
  215.         keith << "THandleObject::IsValidObject(), fTag != kHandleObjectTag." << endl;
  216.     }
  217.     else
  218.     {
  219.         return true;
  220.     }
  221.     
  222.     //    If we get here, the object is bad, so print out a stack crawl,
  223.     //    call Failure() for the current thread, and exit.
  224.     if ( ! mustReturn )    
  225.         FAIL ( -1 );
  226.     
  227.     return false;
  228.     
  229.     #endif    // ENABLE_HANDLE_OBJECTS
  230. }
  231.  
  232. #endif
  233.  
  234. /***********************************|****************************************/
  235.